home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 27 / Tiger_Disk_027_19xx_Tiger-Crew-Disk_de_Side_A.d64 / austria [lgk] (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  171 lines
  1. 1 rem +++++++++++
  2. 2 rem + logiker +
  3. 3 rem +   am    +
  4. 4 rem + 27. nov +
  5. 5 rem +  1993   +
  6. 6 rem +++++++++++ ..(c)  freeware
  7. 9 poke 53280,2:poke 53281,2
  8. 10 print"[147]";
  9. 15 for n=1to9:print"                                        [146]";:next
  10. 21 get a$:if a$<>" " then 21
  11. 25 print:print
  12. 30 print"[147] austria v1.0 [146]"
  13. 35 print spc(25) "  [172][191][191][146][162]"
  14. 40 print spc(25) "  [161][146]   [162][162][146][162][162][162][146][162]"
  15. 45 print spc(22)"[188][146]";spc(3)"[172][190]";spc(9)"[161]"
  16. 50 print spc(20)"[162][190][146] [162][146][191][162][146][191][187]";spc(9)"[161]"
  17. 55 print spc(19)"[172][190]";spc(6)"[161][146]";spc(9)"[161]"
  18. 60 print spc(18)"[162][190]";spc(7)"[161][146]";spc(9)"[191]"
  19. 65 print spc(17)"[191][146]";spc(7)"[191][162][146][190]";spc(9)"[162][161]"
  20. 70 print spc(17)"[191][162][187]";spc(5)"[191][187]";spc(8)"[162][191][146] [191]"
  21. 75 print spc(17)"[161][146] [161][146]      [161][146]       [161][146]   [161]"
  22. 80 print spc(18)"[161] [187][146]    [172][191][146][162][191][162][146][191][187]  [161][191][162][146][162][190]"
  23. 85 print spc(11)"[172][162][162][162][146][191][162][146][187][161][146] [161][161][162][162][146][191][190]     [188][161] [191][188][191]"
  24. 90 print"[145]  [187]"
  25. 95 print" [191][146][188][191] [191][162][146][191]  [191][146][190]    [161][188][190] [188][191][146]";spc(10)"[188][191][191][146][172][190]"
  26. 100 print"[172][190] [188][162][190]  [162][162][146]     [162][190]    [161]";spc(11)"[172][190][191]"
  27. 105 print" [161]  [161]";spc(8)"[161][162][146]      [188][191]";spc(10)"[161][146] [161][146]"
  28. 110 print" [191][187][172][190]";spc(8)"[190][146][162][162][146][162][162] [172][162][187][161][146][172][187]";spc(8)"[161][146] [190][146]"
  29. 115 print"  [188][191][191][146][161]  [172][162][162][162][162][161][146]  [188][187][162][146][190] [188][162][190][188][162][162][162][146][187]    [188][191][146]"
  30. 120 print"     [188][162][146][162][191][146]     [191]  [191]";spc(10)"[161]    [161][146]"
  31. 125 print spc(15)"[191][162][161]";spc(10)"[188][146][162][162][191][162][146][190]"
  32. 130 print spc(17)"[188][162][162][162][146][162][162][162]   [191][146]"
  33. 135 print spc(24)"[162][162][191][146]"
  34. 140 get a$:if a$<>" "anda$<>"e"then140
  35. 141 if a$="e"thenprint"[147]":end
  36. 145 print"[147]       kaernten [146]"
  37. 150 print"   [191][162][146][162] [191][162][146][185][185]  [172][191][146][162][172][162][162][162]"
  38. 155 print"   [161][146]  [162][146]    [191][162][190]  [190]   [191]"
  39. 160 print"   [188][187]";spc(15)"[161][146]"
  40. 165 print"    [188][187]";spc(15)"[161]"
  41. 170 print"   [172][162][146]";spc(16)"[161]"
  42. 175 print"   [188][162][162][162]";spc(13);"[191][146]"
  43. 180 print"       [162][162][162][146][191][162][162][162]    [172][191][146]"
  44. 185 print spc(14)"[162][162][162][146][162][190]"
  45. 190 get a$:if a$<>" " then 190
  46. 195 print"[147]  vorarlberg [146]"
  47. 200 print"     [191][146][162]"
  48. 205 print"    [191][146]  [191]"
  49. 210 print"    [161][146]  [188][187]"
  50. 215 print"   [172][190]   [161][146]"
  51. 220 print"    [161]   [161][146]"
  52. 225 print"    [161]   [161][146]"
  53. 230 print"    [191][162]  [161]"
  54. 235 print"      [191] [161]"
  55. 240 print"       [162][146]"
  56. 245 get a$:if a$<>" " then 245
  57. 250 print"[147]   osttirol [146]
  58. 255 [153]"      newrnd
  59. 260 print"    [172][191][146] [188][187]
  60. 265 [153]"    get   get
  61. 270 print"    [191]   [188][187]
  62. 275 [153]"     get   logrnd
  63. 280 print"     [188][187] [172][162][146]
  64. 285 [153]"      lognewwaitcos
  65. 290 get a$:if a$<>" " then 290
  66. 295 print"[147]          tirol [146]
  67. 300 [153] [166]19)"coswaitnew
  68. 305 print"      [187][162]      [172][162][162][162][162][190] [162][146][187]
  69. 310 [153]"     getwaitlog newwaitget   *cos       sin
  70. 315 print"     [161][146]   [188][162][162][190][146][190]        [191][146]
  71. 320 [153]"    *cos             *newsinwait
  72. 325 print"   [172][190]             [191][146][190]
  73. 330 [153]"   getwait              get
  74. 335 print"   [161]             [162][190]
  75. 340 [153]"   getnewsin     newnewsinnewnewwaitsinnewwait
  76. 345 print"  [188][162][190][188][162][187]  [191][146]
  77. 350 [153]"       lognewnewcos
  78. 355 get a$:if a$<>" " then 355
  79. 360 print"[147]      salzburg [146]
  80. 365 [153]"        sinnewwaitnewsin
  81. 370 print"        [161][146]  [191][146]
  82. 375 [153]"        getwait  sinrnd
  83. 380 print"        [188][187]  [191][146]
  84. 385 [153]"      sinwaitrnd getwait  getwait
  85. 390 print"      [161][191] [161]  [161][146]
  86. 395 [153]"      getwait newwait   logrnd
  87. 400 print"     [191][146][190]      [161]
  88. 405 [153]"  sinnewnewwait        sinnew
  89. 410 print"  [161]            [191]
  90. 415 [153]"  sinsinnewnewwaitnewrnd   rnd   *cos
  91. 420 print"       [188][191][162][191][146][188][162][146][191] [161]
  92. 425 [153] [166]14)"rndwait
  93. 430 get a$:if a$<>" " then 430
  94. 435 print"[147]   oberoesterreich [146]
  95. 440 [153]"         getnewwaitrnd
  96. 445 print"       [162] [161][146] [191][162][187][191][146][191][187]
  97. 450 [153]"      getwait newwaitcos   log  logsin
  98. 455 print"      [161][146]          [161][146]
  99. 460 [153]"     newcos           get
  100. 465 print"   [162][162][146]          [187] [172][161]
  101. 470 [153]"  sinwait           getwaitlognewwaitcos
  102. 475 print"  [161][162]          [161]
  103. 480 [153]"  log newnewwaitget       lognew
  104. 485 print"     [161][146]          [191]
  105. 490 [153]"     lognewnew        get
  106. 495 print"       [191] [172][162][187]   [162][190]
  107. 500 [153]"       getwait get lognewwaitnewnewwait
  108. 505 print"       [191][146] [161]
  109. 510 [153]"       lognewwait
  110. 515 get a$:if a$<>" " then 515
  111. 520 print"[147]       steiermark [146]
  112. 525 [153] [166]15)"newnewwaitnew
  113. 530 print"    [172][162][187]   [162][162][162][162][162]   [191]
  114. 535 [153]"    get lognewwaitnewnewwait         newwaitget
  115. 540 print"    [161]";spc(15)"[188][162]
  116. 545 [153]"  getnewwait";[166]16)"*cos
  117. 550 print"  [161][146]";spc(18)"[191]
  118. 555 [153]"   sinsin";[166]16)"getwait
  119. 560 print"     [191]";spc(16)"[161]
  120. 565 [153]"     sinwait new             getwait
  121. 570 print"    [172][190][191][146] [162][162][162][162][162][146][187]       [172][190]
  122. 575 [153]"    lognewwait       getwait       get
  123. 580 print spc(13)"[161][146]       [161]
  124. 585 [153] [166]13)"getwait       get
  125. 590 print spc(13)"[161][146]    [162][162][162][190]
  126. 595 [153] [166]14)"newnewnewnewwait
  127. 600 get a$:if a$<>" " then 600
  128. 605 print "[147]  burgenland [146]
  129. 610 [153]"       *newsinwaitrnd
  130. 615 print"     [172][172][190]  [161]
  131. 620 [153]"    *coscos  *cos
  132. 625 print"    [191][146] [172]  [188][187]
  133. 630 [153]"    sin*cosnewsinnewwait
  134. 635 print"    [161][146] [162][146][187]
  135. 640 [153]"    sinwait  get
  136. 645 print"  [172][162][146] [172][191][146]
  137. 650 [153]"  sin  sin
  138. 655 print"  [161][146]  [161][146]
  139. 660 [153]"   get logrnd
  140. 665 print"  [161][146]  [188][187]
  141. 670 [153]"  *cossinnewwait
  142. 675 print"  [161][191][146]
  143. 680 [153]"  newwait
  144. 685 get a$:if a$<>" " then 685
  145. 690 print "[147]  niederoesterreich [146]
  146. 695 [153]"     *newnewwaitsinrnd
  147. 700 print"     [161]   [188][162][162][146][187]
  148. 705 [153]"    newcos      logsinnewnewnewnewwaitnewrnd
  149. 710 print"   [161][146]";spc(15);"[161][146]
  150. 715 [153]"   get";[166]15);"getwait
  151. 720 print"   [188][187]";spc(14);"[191][146]
  152. 725 [153]"    getwait";[166]14);"get
  153. 730 print"     [161]         [172][187]  [161][146]
  154. 735 [153]"  rnd *get        sinwaitcosgetwait   get
  155. 740 print" [161][146][188][162][146][190]         [191][162][191][146]   [161][146]
  156. 745 [153]" get";[166]16);"*newnewwait
  157. 750 print" [188][162]";spc(13);"[187][187][190]
  158. 755 [153]"   sin";[166]11);"*coscos
  159. 760 print"   [161]   [162][162][146][162]     [191][146]
  160. 765 [153]"   lognewnewnewwait   sin    sin
  161. 770 print spc(11);"[162][146][161]  [161][146]
  162. 775 [153] [166]12);"lognew sinwait
  163. 780 print spc(14);"[162][146]
  164. 785 [161] a$:[139] a$[179][177]" " [167] 785
  165. 790 [153] "load  wien wait
  166. 795 print"   [172][187]
  167. 800 [153]"  sinwaitcosgetwait
  168. 805 print"  [191][162][191][146][190]
  169. 810 [161] a$:[139] a$[179][177]" " [167] 810
  170. 815 [137]30
  171.